unit AmbarToplamlari;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, Grids, Wwdbigrd, Wwdbgrid, siComp,
  siLngLnk;

type
  TAmbarToplamlariF = class(TForm)
    AmbarToplamlariQ: TADOQuery;
    AmbarToplamlariQS: TDataSource;
    bkapat: TBitBtn;
    wwDBGrid1: TwwDBGrid;
    UnityAmbarToplamlariQ: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bkapatClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure wwDBGrid1CalcCellColors(Sender: TObject; Field: TField;
      State: TGridDrawState; Highlight: Boolean; AFont: TFont;
      ABrush: TBrush);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    StokKod: integer;
    { Public declarations }
  end;

var
  AmbarToplamlariF: TAmbarToplamlariF;

implementation

uses data, U_COMMONLOGO, ana1;

{$R *.dfm}

procedure TAmbarToplamlariF.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := CaFree;
  AmbarToplamlariF := nil;
end;

procedure TAmbarToplamlariF.bkapatClick(Sender: TObject);
begin
  close;
end;

procedure TAmbarToplamlariF.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #27 then
    Close;
end;

procedure TAmbarToplamlariF.FormShow(Sender: TObject);
begin
  AmbarToplamlariQ.Close;
  AmbarToplamlariQ.Parameters.ParamByName('Stokkod').Value := Stokkod;
  AmbarToplamlariQ.Parameters.ParamByName('Stokkod2').Value := Stokkod;
  AmbarToplamlariQ.Open;

//  dm.gecici.Close;
//  dm.gecici.SQL.Text := 'select unitystokkod from stok where stokkod=' + inttostr(Stokkod);
//  dm.gecici.Open;

//  UnityAmbarToplamlariQ.Close;
//  UnityAmbarToplamlariQ.Parameters.ParamByName('unitystokkod').Value := dm.gecici.fieldbyname('unitystokkod').asinteger;
//  UnityAmbarToplamlariQ.Open;
//
//  UnityAmbarToplamlariQ.DisableControls;
//  UnityAmbarToplamlariQ.First;
//  while not UnityAmbarToplamlariQ.Eof do
//  begin
//    if AmbarToplamlariQ.Locate('unityid', UnityAmbarToplamlariQ.fieldbyname('ambarid').asinteger, []) = true then
//    begin
//      AmbarToplamlariQ.Edit;
//      AmbarToplamlariQ.FieldByName('unitymiktar').AsInteger := UnityAmbarToplamlariQ.fieldbyname('miktar').asinteger;
//      AmbarToplamlariQ.Post;
//    end;
//
//    UnityAmbarToplamlariQ.Next;
//  end;
//  UnityAmbarToplamlariQ.EnableControls;
  anaform.CreateExport(Self);
end;

procedure TAmbarToplamlariF.wwDBGrid1CalcCellColors(Sender: TObject;
  Field: TField; State: TGridDrawState; Highlight: Boolean; AFont: TFont;
  ABrush: TBrush);
begin
  afont.Color := clblack;

  if (field.DataSet.FieldByName('miktar').value > 0) then
    abrush.color := $00EFE4DA
  else
  begin
    abrush.color := clwhite;

    if Highlight = true then
    begin
      abrush.color := clnavy;
      afont.Color := clwhite;
    end;
  end;

end;

procedure TAmbarToplamlariF.FormCreate(Sender: TObject);
begin
//  INTEGRATED OF LOGO
//  UnityAmbarToplamlariQ.Close;
//  UnityAmbarToplamlariQ.Sql.Text := 'SELECT INVENNO,S.STOCKREF,sum(S.ONHAND) as miktar ';
//  UnityAmbarToplamlariQ.Sql.ADD('into #yeni FROM  LG_' + LGDON + '_01_STINVTOT S');
//  UnityAmbarToplamlariQ.Sql.ADD('WITH(NOLOCK, INDEX = I' + LGDON + '_01_STINVTOT_I2) ');
//  UnityAmbarToplamlariQ.Sql.ADD('where STOCKREF=:unitystokkod');
//  UnityAmbarToplamlariQ.Sql.ADD('GROUP BY S.STOCKREF,INVENNO');
//  UnityAmbarToplamlariQ.Sql.ADD('having INVENNO<>-1 and sum(S.ONHAND)<>0 ');
//  UnityAmbarToplamlariQ.Sql.ADD('order by stockref');
//  UnityAmbarToplamlariQ.Sql.ADD('');
//  UnityAmbarToplamlariQ.Sql.ADD('select INVENNO AS ambarid,miktar from #yeni');
//  UnityAmbarToplamlariQ.Sql.ADD('order by INVENNO,STOCKREF');
//  UnityAmbarToplamlariQ.Sql.ADD('');
//  UnityAmbarToplamlariQ.Sql.ADD('drop table #yeni');
//  UnityAmbarToplamlariQ.Open;
end;

end.

